home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / APPLEBETIZE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  80 lines
  1. 1  TEXT : HOME 
  2. 2  REM  ORIGIONAL PROGRAM BY CHARLES E. THOMAS
  3. 3  REM  7022 BLACKHAWK
  4. 4  REM  PITTSBURG, PA  15218
  5. 5  REM  FROM
  6. 6  REM  KILOBAUD MICROCOMPUTING
  7. 7  REM  PAGE 94
  8. 8  REM  APRIL, 1979
  9. 9  REM  UPDATED BY DAVID M. MURDOCH
  10. 10  HTAB 15: FLASH : PRINT "APPLEBETIZE": NORMAL : PRINT : PRINT : PRINT 
  11. 15  PRINT "DO YOU WANT INSTRUCTIONS";: GET Q$: IF Q$ = "Y"  THEN  GOSUB 5000
  12. 16  HOME 
  13. 20  PRINT : PRINT : PRINT 
  14. 30  PRINT "HOW MANY NAMES ARE THERE TO BE          APPLEBETIZED ";
  15. 35  INPUT N
  16. 40  DIM A$(N)
  17. 50  FOR I = 1 TO N
  18. 55  PRINT : PRINT 
  19. 60  PRINT "ENTER NAME NO. ";I;
  20. 70  INPUT A$(I)
  21. 80  NEXT I
  22. 81  HOME 
  23. 82  FOR T = 1 TO 250: NEXT T: PRINT "<CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G>"
  24. 83  HTAB 13: VTAB 10: PRINT "DON'T TOUCH ME!"
  25. 84  HTAB 14: VTAB 15: PRINT "I'M THINKING!"
  26. 85  FOR T = 1 TO 200: NEXT T
  27. 90  FOR I = 1 TO N
  28. 100  FOR J = 1 TO N -I
  29. 110  LET A$ = A$(J)
  30. 120  LET B$ = A$(J +1)
  31. 130  IF A$ <B$  THEN 160
  32. 140  LET A$(J) = B$
  33. 150  LET A$(J +1) = A$
  34. 160  NEXT J
  35. 170  NEXT I
  36. 175  HOME 
  37. 180  PRINT : PRINT 
  38. 190  FOR I = 1 TO N
  39. 200  IF I <10  THEN T = 3
  40. 210  IF I >9  THEN T = 2
  41. 215  IF I >99  THEN T = 1
  42. 220  PRINT  TAB( T);I;"  ";A$(I)
  43. 230  NEXT I
  44. 235  PRINT : PRINT : PRINT 
  45. 240  PRINT "DO YOU WANT ANOTHER LISTING OF THE SAME NAMES";
  46. 245  GET Q$
  47. 250  IF Q$ = "Y"  THEN  GOTO 81
  48. 254  HOME 
  49. 255  VTAB 14
  50. 256  PRINT "DO YOU WANT TO APPLEBETIZE ANOTHER LIST ";: PRINT "OF NAMES";: GET Q$
  51. 257  IF Q$ = "Y"  THEN  RUN 16
  52. 260  HOME 
  53. 270  HTAB 16: VTAB 14: PRINT "GOOD BYE"
  54. 280  FOR T = 1 TO 500: NEXT T
  55. 290  FOR T = 1 TO 10: PRINT "<CTRL-J>": NEXT T
  56. 999  END 
  57. 5000  REM        INSTRUCTIONS <CTRL-J><CTRL-J><CTRL-J>
  58. 5001  HOME 
  59. 5002  PRINT : PRINT : PRINT : PRINT "    THIS PROGRAM WILL ALPHABETIZE A LIST";
  60. 5003  PRINT "OF UP TO 999 NAMES, KEEPING THE FIRST   ";
  61. 5004  PRINT "LETTER OF EACH IN A VERTICAL LINE."
  62. 5005  PRINT : PRINT 
  63. 5010  PRINT "    THIS PROGRAM WAS ADAPTED BY CHARLES ";
  64. 5011  PRINT "THOMAS FROM THE ALPHABETIZE PROGRAM IN  ";
  65. 5012  PRINT "THE BOOK 'SOME COMMON BASIC PROGRAMS'   ";
  66. 5013  PRINT "BY LON POOLE AND MARY BORCHERS,         ";
  67. 5014  PRINT "PUBLISHED BY OSBORNE & ASSOCIATES, INC. ";
  68. 5015  PRINT "MR. THOMAS MODIFIED THE PROGRAM TO      ";
  69. 5016  PRINT "NUMBER THE LIST, AS WELL AS PLACE THE   ";
  70. 5017  PRINT "ITEMS IN ALPHABETICAL ORDER."
  71. 5018  PRINT "HIS WORK WAS PUBLISHED IN THE APRIL,   "
  72. 5019  PRINT "1979 ISSUE OF KILOBAUD MICROCOMPUTING."
  73. 5020  PRINT : PRINT 
  74. 5021  PRINT "    I MODIFIED THE PROGRAM TO WORK WITH ";
  75. 5022  PRINT "UP TO 999 ITEMS, AND CONSERVE MEMORY    ";
  76. 5023  PRINT "SPACE BY AUTOMATICALLY DIMENSIONING     ";
  77. 5024  PRINT "THE VARIABLE 'A$' IN LINE 40."
  78. 5050  FOR T = 1 TO 30000: NEXT T
  79. 5051  RETURN 
  80. 5100  END